unit uERP_RAD_Cidade;

interface

uses
  Uni, uQuery;

type
  TRADCidade = class

    {$REGION '<< Private >>'}

      private

      {$REGION '<< Atributes >>'}

        var m_DataSource_Cidade: TUniDataSource;
        var m_Query_Cidade: TMyQuery;

      {$ENDREGION}

    {$ENDREGION}

    {$REGION '<< Public >>'}

      public

      {$REGION '<< Methods >>'}

        {$REGION '<< Getter and Setter >>'}

          function GetDataSource_Cidade(): TUniDataSource;
          function GetQuery_Cidade(): TMyQuery;

        {$ENDREGION}

        constructor Create(); overload;

        function ExecuteSQL_Cidade(): Boolean;

      {$ENDREGION}

    {$ENDREGION}

  end;

implementation

uses uERP_Constantes, SysUtils;

{$REGION '<< TRADCidade >>'}

constructor TRADCidade.Create;
begin
  inherited;
  Self.GetDataSource_Cidade().DataSet := Self.GetQuery_Cidade();
end;

function TRADCidade.ExecuteSQL_Cidade: Boolean;
begin
  Self.m_Query_Cidade.SelectAll(
                          uERP_Constantes.c_Field_Cidade,
                          uERP_Constantes.c_NomeTB_Cidade,
                          uERP_Constantes.c_Field_Cidade_Nome
                        );
end;

function TRADCidade.GetDataSource_Cidade: TUniDataSource;
begin
  if not Assigned(m_DataSource_Cidade)
    then m_DataSource_Cidade := TUniDataSource.Create(nil);
  Result := m_DataSource_Cidade;
end;

function TRADCidade.GetQuery_Cidade: TMyQuery;
begin
  if not Assigned(m_Query_Cidade)
    then m_Query_Cidade := TMyQuery.Create();
  Result := m_Query_Cidade;
end;

{$ENDREGION}

end.
